times()        package:BIE5782             R Documentation


 Anlise Exploratria de Dados Temporais 

Description:

     A partir de um data frame com dados temporais e um vetor de fatores, a funo realiza anlises exploratrias descritivas de intervalos de tempo selecionados pelo usurio, em funo dos fatores ~~

Usage:

     times(fator, tempos, periodos, unidade)

Arguments:

fator: Vetor da classe fator com as categorias a serem analisadas. 

tempos: data frame com dados temporais, datas e/ou horrios  em um dos seguintes formatos: "POSIXlt", "POSIXt", dates, ou times.

Perodos: Especificao dos perodos a serem calculados, com trs elementos para cada perodo, separados por -. O primeiro e o segundo elementos representam os tempos que sero comparados (devem fazer referencia aos nomes de colunas do argumento tempos). O terceiro elemento representa o nome que o usurio utilizar para nomear cada perodo. Veja mais em Details e nos exemplos ao final.


unidade:  unidade de medida de tempo em que sero calculados os perodos.


Details:

     Detalhes sobre o argumento periodos:
      Pode-se solicitar intervalos de tempo entre qualquer dos momentos do DF tempos. 
      Exemplo de uso:  "Tempo_2 - Tempo_1 - Periodo I", desta forma ir ser calculado o intervalo entre Tempo_2 e Tempo_1, e o resultado ser nomeado de Perodo I. 

Value:

      comp1 : Data frame com os perodos solicitados na entrada da funo. Neste data frame consta os intervalos de tempo solicitados, referentes a cada linha observao, ou seja, referentes  cada linha do DF de entrada tempos, ligadas aos respectivos fatores.

      comp2 : Data frame com as mdias de cada perodo em funo do fator.
      
      comp3: Data frame com os desvios padro de cada perodo em funo do fator.  
      
      comp4: Data frame com os intervalos de confiana de 95% de todos os perodos solicitados em funo do fator.

	Sadas grficas com Boxplots de cada perodo em funo dos fatores.


Warning:
     
Note:

Author(s):

Caio Filipe da Motta Lima

References:

See Also:

Examples:

#### EXEMPLO 1 ####

# Dados referentes  comparao de dois protocolos anestsicos (Protocolo A e Protocolo B) em um espcie animal.

# CRIANDO OS DADOS #
Aplicacao.A <-  strptime("10:00", "%H:%M")
Decubito.A <- Aplicacao.A + trunc(rnorm(30, 300, 90)) 
Retorno.A <- Decubito.A + trunc(rnorm (30, 2400,600))
Recuperacao.A <- Retorno.A + trunc(rnorm (30, 3600,1200))

Aplicacao.B <-  strptime("10:00", "%H:%M")
Decubito.B <- Aplicacao.A + trunc(rnorm(30, 120, 60)) 
Retorno.B <- Decubito.A + trunc(rnorm (30, 3600, 600))
Recuperacao.B <- Retorno.A + trunc(rnorm (30, 13000, 3600))

Protocolos <- as.factor(c(rep("Protocolo A", 30), rep("Protocolo B", 30)))

Aplicacao <- c(Aplicacao.A, Aplicacao.B)
Decubito <- c(Decubito.A, Decubito.B)
Retorno <- c(Retorno.A, Retorno.B)
Recuperacao <- c(Recuperacao.A, Recuperacao.B)

DF_anestesia <- data.frame(Aplicacao, Decubito, Retorno, Recuperacao)

# APLICANDO A FUNO #

times(fator = Protocolos, tempos = DF_anestesia, 
      periodos = c(
      'Decubito - Aplicacao - Periodo de Latencia', 
          'Retorno - Decubito - Periodo de Manutencao',
          'Recuperacao - Aplicacao - Periodo de Recuperacao'),
      
      unidade = "min")


#### EXEMPLO 2 ####

# Dados referentes  comparao de duas linhagens de sunos (Linhagem A e Linhagem B).

# CRIANDO OS DADOS #

library(chron)

nascimento.A <- dates ("01/01/2017") + trunc(50 * rnorm(30))
maturidade.A <- nascimento.A + trunc(rnorm(30, 200, 20)) 
primeiro_parto.A <- maturidade.A + trunc(rnorm (30, 115,10))
segundo_parto.A <- primeiro_parto.A + trunc(rnorm (30, 160,25))  
abate.A <- segundo_parto.A + trunc(rnorm (30, 90, 15))  

nascimento.B <- dates("01/01/2017") + trunc(50 * rnorm(30))
maturidade.B <- nascimento.B + trunc(rnorm(30, 250, 20)) 
primeiro_parto.B <- maturidade.B + trunc(rnorm (30, 145,10))
segundo_parto.B <- primeiro_parto.B + trunc(rnorm (30, 200,25))  
abate.B <- segundo_parto.B + trunc(rnorm (30, 100, 15))  

linhagem <- as.factor(c(rep("Linhagem A", 30), rep("Linhagem B", 30)))

Nascimento <- c(nascimento.A, nascimento.B)
Maturidade <- c(maturidade.A, maturidade.B)
Primeiro_parto <- c(primeiro_parto.A, primeiro_parto.B)
Segundo_parto <- c(segundo_parto.A, segundo_parto.B)
Abate <- c(abate.A, abate.B)

DF_suinos <- data.frame(Nascimento, Maturidade, Primeiro_parto, Segundo_parto, Abate)

# APLICANDO A FUNCAO #
times(fator = linhagem, tempos = DF_suinos, 
      periodos = c(
      'Maturidade - Nascimento - Maturidade Sexual',
          'Primeiro_parto - Nascimento - Primeiro Parto',
          'Segundo_parto - Primeiro_parto - Intervalo entre Partos',
          'Abate - Nascimento - Tempo de Produo'),
     
       unidade = "days")



#### EXEMPLO 3 ####

# Dados referentes  comparao de trs tipos de solo (mido, Argiloso e Arenoso) em relao ao desenvolvimento de dada planta.

# CRIANDO OS DADOS #

library(chron)

Plantacao.A <- dates ("01/01/1980") + trunc(50 * rnorm(20))
CAP_0.5_metro.A <- Plantacao.A + trunc(rnorm(20, 100, 10)) 
Morte.A <- Plantacao.A + trunc(rnorm(20, 300, 20))   


Plantacao.B <- dates ("01/01/1980") + trunc(50 * rnorm(20))
CAP_0.5_metro.B <- Plantacao.B + trunc(rnorm(20, 150, 12)) 
Morte.B <- Plantacao.B + trunc(rnorm(20, 275, 10))   


Plantacao.C <- dates ("01/01/1980") + trunc(20 * rnorm(20))
CAP_0.5_metro.C <- Plantacao.C + trunc(rnorm(20, 200, 10)) 
Morte.C <- Plantacao.C + trunc(rnorm(20, 250, 10))   


solos <- as.factor(c(rep("Umido", 20), rep("Argiloso", 20), rep("Arenoso", 20)))

Plantacao <- c(Plantacao.A, Plantacao.B, Plantacao.C)
CAP_0.5_metro <- c(CAP_0.5_metro.A, CAP_0.5_metro.B, CAP_0.5_metro.C)
Morte <- c(Morte.A, Morte.B, Morte.C)

DF_solos <- data.frame(Plantacao, CAP_0.5_metro, Morte)

# APLICANDO A FUNO # 
times(fator = solos, tempos = DF_solos, 
      periodos = c(
'CAP_0.5_metro - Plantacao - Tempo de crescimento',
     'Morte - Plantacao - Tempo de vida'),
      unidade = "weeks")






